home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Zaid_Helpe2128309262008.psc / Zaid Helper / CommonDailog32.bas next >
BASIC Source File  |  2008-09-10  |  2KB  |  56 lines
  1. Attribute VB_Name = "CommonDailog32"
  2.  
  3. Type OPENFILENAME
  4.         lStructSize As Long
  5.         hwndOwner As Long
  6.         hInstance As Long
  7.         lpstrFilter As String
  8.         lpstrCustomFilter As String
  9.         nMaxCustFilter As Long
  10.         nFilterIndex As Long
  11.         lpstrFile As String
  12.         nMaxFile As Long
  13.         lpstrFileTitle As String
  14.         nMaxFileTitle As Long
  15.         lpstrInitialDir As String
  16.         lpstrTitle As String
  17.         Flags As Long
  18.         nFileOffset As Integer
  19.         nFileExtension As Integer
  20.         lpstrDefExt As String
  21.         lCustData As Long
  22.         lpfnHook As Long
  23.         lpTemplateName As String
  24. End Type
  25.  
  26. Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
  27. Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
  28. Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
  29.  
  30. Public Const OFN_READONLY = &H1
  31. Public Const OFN_OVERWRITEPROMPT = &H2
  32. Public Const OFN_HIDEREADONLY = &H4
  33. Public Const OFN_NOCHANGEDIR = &H8
  34. Public Const OFN_SHOWHELP = &H10
  35. Public Const OFN_ENABLEHOOK = &H20
  36. Public Const OFN_ENABLETEMPLATE = &H40
  37. Public Const OFN_ENABLETEMPLATEHANDLE = &H80
  38. Public Const OFN_NOVALIDATE = &H100
  39. Public Const OFN_ALLOWMULTISELECT = &H200
  40. Public Const OFN_EXTENSIONDIFFERENT = &H400
  41. Public Const OFN_PATHMUSTEXIST = &H800
  42. Public Const OFN_FILEMUSTEXIST = &H1000
  43. Public Const OFN_CREATEPROMPT = &H2000
  44. Public Const OFN_SHAREAWARE = &H4000
  45. Public Const OFN_NOREADONLYRETURN = &H8000
  46. Public Const OFN_NOTESTFILECREATE = &H10000
  47. Public Const OFN_NONETWORKBUTTON = &H20000
  48. Public Const OFN_NOLONGNAMES = &H40000                      '  force no long names for 4.x modules
  49. Public Const OFN_EXPLORER = &H80000                         '  new look commdlg
  50. Public Const OFN_NODEREFERENCELINKS = &H100000
  51. Public Const OFN_LONGNAMES = &H200000                       '  force long names for 3.x modules
  52.  
  53. Public Const OFN_SHAREFALLTHROUGH = 2
  54. Public Const OFN_SHARENOWARN = 1
  55. Public Const OFN_SHAREWARN = 0
  56.